home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Ap-Az / AstroStack1.1.cpt / AstroStack 1.1 / card_12783.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  11.9 KB  |  360 lines
  1. -- card: 12783 from stack: in.1
  2. -- bmap block id: 9303
  3. -- flags: 0000
  4. -- background id: 2632
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide card field id 3
  9.   hide card field id 4
  10.   put empty into card field id 2
  11.   put empty into card field id 5
  12.   hide card field id 8
  13. end openCard
  14.  
  15. on closeCard
  16.   hide card field id 8
  17. end closeCard
  18.  
  19.  
  20.  
  21.  
  22. -- part 1 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=202 top=285 right=307 bottom=302
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Continue
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   set cursor to 4
  37.  
  38.   put empty into card field fieldcount of card id 11820
  39.   put card field id 2 of card id 10033 into DateA
  40.   convert DateA to dateItems
  41.   if card field id 2 < item 1 of DateA
  42.   then
  43.   answer "Progressed year cannot be before birth year!"
  44.   exit mouseUp
  45. end if
  46.  
  47. show card field id 8
  48.  
  49. put card field id 2 - item 1 of dateA into progressdif
  50.  
  51. if card field id 5 is empty
  52. then put card field id 2 & ", centering on the month of birth." into card field id 2 of card id 11820
  53. if card field id 5 > 0 and hilite of card button id 6 is true
  54. then put card field id 2 & ", centering on "& card field id 5 && "month(s) after birthday." into card field id 2 of card id 11820
  55. if card field id 5 > 0 and hilite of card button id 7 is true
  56. then put card field id 2 & ", centering on "& card field id 5 && "month(s) before birthday." into card field id 2 of card id 11820
  57.  
  58. convert DateA to abbreviated date
  59.  
  60. if card field id 5 > 0 and hilite of card button id 6 is true
  61. then add (card field id 5)/12 to progressdif
  62. if card field id 5 > 0 and hilite of card button id 7 is true
  63. then subtract (card field id 5)/12 from progressdif
  64.  
  65. put card field id 1 of card id 10033 into card field id 1 of card id 11820
  66. put card field id 10 of card id 10033 into card field id 3
  67.  
  68.  
  69. repeat with x = 1 to 12
  70.   put item 1 of line x of card field id 3 & "," & item 2 of line x of card field id 3 + progressdif into line x of card field id 4
  71.   if item 2 of line x of card field id 4 > 360
  72.   then put item 2 of line x of card field id 4 - 360 into item 2 of line x of card field id 4
  73. end repeat
  74.  
  75. put item 2 of line 11 of card field id 3 into ascendant
  76.  
  77. if item 2 of line 1 of card field id 4 < ascendant
  78. then put item 2 of line 1 of card field id 4 + 360 - ascendant into sunhouse
  79. else put item 2 of line 1 of card field id 4 - ascendant into sunhouse
  80.  
  81. if item 2 of line 2 of card field id 4 < ascendant
  82. then put item 2 of line 2 of card field id 4 + 360 - ascendant into moonhouse
  83. else put item 2 of line 2 of card field id 4 - ascendant into moonhouse
  84.  
  85. if item 2 of line 3 of card field id 4 < ascendant
  86. then put item 2 of line 3 of card field id 4 + 360 - ascendant into mercuryhouse
  87. else put item 2 of line 3 of card field id 4 - ascendant into mercuryhouse
  88.  
  89. if item 2 of line 4 of card field id 4 < ascendant
  90. then put item 2 of line 4 of card field id 4 + 360 - ascendant into venushouse
  91. else put item 2 of line 4 of card field id 4 - ascendant into venushouse
  92.  
  93.  
  94. if item 2 of line 5 of card field id 4 < ascendant
  95. then put item 2 of line 5 of card field id 4 + 360 - ascendant into marshouse
  96. else put item 2 of line 5 of card field id 4 - ascendant into marshouse
  97.  
  98.  
  99. if item 2 of line 6 of card field id 4 < ascendant
  100. then put item 2 of line 6 of card field id 4 + 360 - ascendant into jupiterhouse
  101. else put item 2 of line 6 of card field id 4 - ascendant into jupiterhouse
  102.  
  103.  
  104. if item 2 of line 7 of card field id 4 < ascendant
  105. then put item 2 of line 7 of card field id 4 + 360 - ascendant into saturnhouse
  106. else put item 2 of line 7 of card field id 4 - ascendant into saturnhouse
  107.  
  108.  
  109. if item 2 of line 8 of card field id 4 < ascendant
  110. then put item 2 of line 8 of card field id 4 + 360 - ascendant into uranushouse
  111. else put item 2 of line 8 of card field id 4 - ascendant into uranushouse
  112.  
  113.  
  114. if item 2 of line 9 of card field id 4 < ascendant
  115. then put item 2 of line 9 of card field id 4 + 360 - ascendant into neptunehouse
  116. else put item 2 of line 9 of card field id 4 - ascendant into neptunehouse
  117.  
  118. if item 2 of line 10 of card field id 4 < ascendant
  119. then put item 2 of line 10 of card field id 4 + 360 - ascendant into plutohouse
  120. else put item 2 of line 10 of card field id 4 - ascendant into plutohouse
  121.  
  122. put (trunc(sunhouse / 30) + 1) into sunhouse
  123. put (trunc(moonhouse / 30) + 1) into moonhouse
  124. put (trunc(mercuryhouse / 30) + 1) into mercuryhouse
  125. put (trunc(venushouse / 30) + 1) into venushouse
  126. put (trunc(marshouse / 30) + 1) into marshouse
  127. put (trunc(jupiterhouse / 30) + 1) into jupiterhouse
  128. put (trunc(saturnhouse / 30) + 1) into saturnhouse
  129. put (trunc(uranushouse / 30) + 1) into uranushouse
  130. put (trunc(neptunehouse / 30) + 1) into neptunehouse
  131. put (trunc(plutohouse / 30) + 1) into plutohouse
  132.  
  133. put 1 into linecount
  134.  
  135. repeat with x = 1 to 12
  136.   put item 2 of line x of card field id 3 into lowplanet
  137.   repeat with y = 1 to 12
  138.     put item 2 of line y of card field id 4 into hiplanet
  139.     if hiplanet < lowplanet then add 360 to hiplanet
  140.     put hiplanet - lowplanet into aspect
  141.  
  142.     if aspect <= 1 or aspect >= 359 and aspect <= 361  then
  143.       put item 1 of line y of card field id 4 && "(p) conjunct " & item 1 of line x of card field id 3 && "(n)" into line linecount of card field  fieldcount of card id 11820
  144.       if aspect <= .5 or aspect >= 359.5 and aspect <= 360.5
  145.       then put item 1 of line y of card field id 4 && "(p) conjunct " & item 1 of line x of card field id 3 && "(n) *" into line linecount of card field  fieldcount of card id 11820
  146.       add 1 to linecount
  147.  
  148.     end if
  149.  
  150.     if aspect >= 179 and aspect <= 181 then
  151.       put item 1 of line y of card field id 4 && "(p) oppose " & item 1 of line x of card field id 3 && "(n)" into line linecount of card field  fieldcount of card id 11820
  152.       if aspect >= 179.5 or aspect <= 180.5
  153.       then put item 1 of line y of card field id 4 && "(p) oppose " & item 1 of line x of card field id 3 && "(n) *" into line linecount of card field  fieldcount of card id 11820
  154.       add 1 to linecount
  155.     end if
  156.  
  157.     if aspect >= 89 and aspect <= 91 or aspect >= 269 and aspect <= 271 then
  158.       put item 1 of line y of card field id 4 && "(p) square " & item 1 of line x of card field id 3 && "(n)" into line linecount of card field  fieldcount of card id 11820
  159.       if aspect >= 89.5 and aspect <= 90.5  or aspect >= 269.5 and aspect <= 270.5
  160.       then put item 1 of line y of card field id 4 && "(p) square " & item 1 of line x of card field id 3 && "(n) *" into line linecount of card field  fieldcount of card id 11820
  161.       add 1 to linecount
  162.     end if
  163.  
  164.     if aspect >= 119 and aspect <= 121 or aspect >= 239 and aspect <= 241
  165.     then
  166.     put item 1 of line y of card field id 4 && "(p) trine " & item 1 of line x of card field id 3 && "(n)" into line linecount of card field  fieldcount of card id 11820
  167.     if aspect >= 119.5 and aspect <= 120.5  or aspect >= 239.5 and aspect <= 240.5
  168.     then put item 1 of line y of card field id 4 && "(p) trine " & item 1 of line x of card field id 3 && "(n) *" into line linecount of card field  fieldcount of card id 11820
  169.     add 1 to linecount
  170.   end if
  171.  
  172.   if aspect >= 59 and aspect <= 61 or aspect >= 299 and aspect <= 301
  173.   then
  174.   put item 1 of line y of card field id 4 && "(p) sextile " & item 1 of line x of card field id 3 && "(n)" into line linecount of card field  fieldcount of card id 11820
  175.   if aspect >= 59.5 and aspect <= 60.5  or aspect >= 299.5 and aspect <= 300.5
  176.   then put item 1 of line y of card field id 4 && "(p) sextile " & item 1 of line x of card field id 3 && "(n) *" into line linecount of card field  fieldcount of card id 11820
  177.   add 1 to linecount
  178. end if
  179.  
  180. if aspect >= 149 and aspect <= 151 or aspect >= 209 and aspect <= 211
  181. then
  182. put item 1 of line y of card field id 4 && "(p) quincunx " & item 1 of line x of card field id 3 && "(n)" into line linecount of card field  fieldcount of card id 11820
  183. if aspect >= 149.5 and aspect <= 150.5  or aspect >= 209.5 and aspect <= 210.5
  184. then put item 1 of line y of card field id 4 && "(p) quincunx " & item 1 of line x of card field id 3 && "(n) *" into line linecount of card field  fieldcount of card id 11820
  185. add 1 to linecount
  186. end if
  187. end repeat
  188. end repeat
  189.  
  190. put the number of lines in card field fieldcount of card id 11820 into linecount
  191. put "                    *** HOUSES ***" into line linecount + 2 of card field fieldcount of card id 11820
  192. put "Sun in " & sunhouse & ", Moon in " & moonhouse & ", Mercury in " & mercuryhouse & ", Venus in " & venushouse & ", Mars in " & marshouse & ", Jupiter in " & jupiterhouse & ", Saturn in " & saturnhouse & ", Uranus in " & uranushouse & ", Neptune in " & neptunehouse & ", Pluto in " & plutohouse & "." into line linecount + 3 of card field fieldcount of card id 11820
  193.  
  194. go to next card
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 2 (field)
  200. -- low flags: 00
  201. -- high flags: 0002
  202. -- rect: left=295 top=93 right=111 bottom=336
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 0
  206. -- font id: 3
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: 
  211.  
  212.  
  213. -- part 3 (field)
  214. -- low flags: 80
  215. -- high flags: 0007
  216. -- rect: left=68 top=243 right=274 bottom=267
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 3
  221. -- text size: 9
  222. -- style flags: 0
  223. -- line height: 12
  224. -- part name: 
  225.  
  226.  
  227. -- part 4 (field)
  228. -- low flags: 80
  229. -- high flags: 0007
  230. -- rect: left=283 top=241 right=272 bottom=486
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 0
  234. -- font id: 3
  235. -- text size: 9
  236. -- style flags: 0
  237. -- line height: 12
  238. -- part name: 
  239.  
  240.  
  241. -- part 5 (field)
  242. -- low flags: 00
  243. -- high flags: 0002
  244. -- rect: left=105 top=200 right=217 bottom=130
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 0
  248. -- font id: 3
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: 
  253.  
  254.  
  255. -- part 6 (button)
  256. -- low flags: 00
  257. -- high flags: 2006
  258. -- rect: left=186 top=200 right=216 bottom=204
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: New Button
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   set the hilite of card button id 7 to false
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part 7 (button)
  275. -- low flags: 00
  276. -- high flags: 6006
  277. -- rect: left=186 top=219 right=235 bottom=204
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 1
  281. -- font id: 0
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: New Button
  286. ----- HyperTalk script -----
  287. on mouseUp
  288.   set the hilite of card button id 6 to false
  289. end mouseUp
  290.  
  291.  
  292.  
  293. -- part 8 (field)
  294. -- low flags: 81
  295. -- high flags: 2004
  296. -- rect: left=119 top=261 right=308 bottom=389
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 0
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: 
  305.  
  306.  
  307. -- part 10 (button)
  308. -- low flags: 00
  309. -- high flags: 0000
  310. -- rect: left=465 top=304 right=336 bottom=504
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 11045 / 11045
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: Home
  319. ----- HyperTalk script -----
  320. on mouseUp
  321.   visual effect iris close
  322.   go home
  323. end mouseUp
  324.  
  325.  
  326.  
  327. -- part contents for card part 3
  328. ----- text -----
  329. Sun,353.333333
  330. Moon,146.183333
  331. Mercury,347.2
  332. Venus,345.35
  333. Mars,57.666667
  334. Jupiter,177.35
  335. Saturn,254.233333
  336. Uranus,123.183333
  337. Neptune,212.183333
  338. Pluto,148.616667
  339. Ascendant,261.316667
  340. Mid-Heaven,173
  341.  
  342. -- part contents for card part 4
  343. ----- text -----
  344. Sun,353.333333
  345. Moon,146.183333
  346. Mercury,347.2
  347. Venus,345.35
  348. Mars,57.666667
  349. Jupiter,177.35
  350. Saturn,254.233333
  351. Uranus,123.183333
  352. Neptune,212.183333
  353. Pluto,148.616667
  354. Ascendant,261.316667
  355. Mid-Heaven,173
  356.  
  357. -- part contents for card part 8
  358. ----- text -----
  359. This calculation takes a few moments.
  360. Thank you for being patient.